home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_AdRotator_VBScript.asp < prev    next >
Encoding:
Text File  |  1998-05-29  |  868 b   |  35 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <% Option Explicit %>
  3.  
  4. <!*************************
  5. This sample is provided for educational purposes only. It is not intended to be 
  6. used in a production environment, has not been tested in a production environment, 
  7. and Microsoft will not provide technical support for it. 
  8. *************************>
  9.  
  10. <HTML>
  11.     <HEAD>
  12.         <TITLE>Ad Rotator Sample</TITLE>
  13.     </HEAD>
  14.  
  15.     <BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
  16.  
  17.         <!-- Display header. -->
  18.  
  19.         <FONT SIZE="4" FACE="ARIAL, HELVETICA">
  20.         <B>Ad Rotator Sample</B></FONT><BR>
  21.       
  22.         <HR SIZE="1" COLOR="#000000">
  23.  
  24.  
  25.         <%
  26.             Dim objAd            
  27.              Set objAd = Server.CreateObject("MSWC.AdRotator")
  28.         %>
  29.  
  30.         <%= objAd.GetAdvertisement("adrot.txt") %>
  31.         <A HREF="AdRotator_VBScript.asp"> Revisit Page </A>
  32.  
  33.     </BODY>
  34. </HTML>
  35.